From: Jim Blandy <jimb@redhat.com>
Date: Thu, 27 May 1993 05:38:12 +0000 (+0000)
Subject: * x-win.el: Check for a geometry resource, and apply it to the
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95888
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=5d20eba6587bafb6c2020abc7c87e774a0218079;p=emacs.git

* x-win.el: Check for a geometry resource, and apply it to the
	initial frame.
---

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 84a09026618..06f7d375b74 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -521,6 +521,14 @@ This returns ARGS with the arguments that have been processed removed."
 
 (setq frame-creation-function 'x-create-frame-with-faces)
 
+;; Apply a geometry resource to the initial frame.  Put it at the end
+;; of the alist, so that anything specified on the command line takes
+;; precedence.
+(let ((res-geometry (x-get-resource "geometry" "Geometry")))
+  (if res-geometry
+      (setq initial-frame-alist (append initial-frame-alist
+					(x-parse-geometry res-geometry)))))
+
 (defun x-win-suspend-error ()
   (error "Suspending an emacs running under X makes no sense"))
 (add-hook 'suspend-hook 'x-win-suspend-error)